# Packages ----
library(tidyverse)
library(geofacet)

recession_dates <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-02-05/recessions.csv")

Parsed with column specification:
cols(
  name = col_character(),
  period_range = col_character(),
  duration_months = col_character(),
  time_since_previous_recession_months = col_character(),
  peak_unemploy_ment = col_character(),
  gdp_decline_peak_to_trough = col_character(),
  characteristics = col_character()
)

LS0tCnRpdGxlOiAiTW9ydGdhZ2UgRURBIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7ciBzZXR1cH0KIyBQYWNrYWdlcyAtLS0tCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdlb2ZhY2V0KQpgYGAKCiMgRGF0YQpgYGB7ciBkYXRhfQpzdGF0ZV9ocGkgPC0gcmVhZHI6OnJlYWRfY3N2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcmZvcmRhdGFzY2llbmNlL3RpZHl0dWVzZGF5L21hc3Rlci9kYXRhLzIwMTkvMjAxOS0wMi0wNS9zdGF0ZV9ocGkuY3N2IikKbW9ydGdhZ2VfcmF0ZXMgPC0gcmVhZHI6OnJlYWRfY3N2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcmZvcmRhdGFzY2llbmNlL3RpZHl0dWVzZGF5L21hc3Rlci9kYXRhLzIwMTkvMjAxOS0wMi0wNS9tb3J0Z2FnZS5jc3YiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sX3R5cGVzID0gYygiRGRkZGRkZGRkIikpCnJlY2Vzc2lvbl9kYXRlcyA8LSByZWFkcjo6cmVhZF9jc3YoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yZm9yZGF0YXNjaWVuY2UvdGlkeXR1ZXNkYXkvbWFzdGVyL2RhdGEvMjAxOS8yMDE5LTAyLTA1L3JlY2Vzc2lvbnMuY3N2IikKYGBgCgoKYGBge3J9CnByb2JsZW1zKG1vcnRnYWdlX3JhdGVzKSAlPiUgCiAgY291bnQoY29sLCBleHBlY3RlZCkKYGBgCgpgYGB7cn0KbW9ydGdhZ2VfcmF0ZXMgJT4lIAogIGZpbHRlcighaXMubmEoZml4ZWRfcmF0ZV8xNV95cikpICU+JSAKICBzZWxlY3QoZml4ZWRfcmF0ZV8xNV95cikKYGBgCgojIENsZWFuIERhdGEKIyMgUmVjZXNzaW9uCmBgYHtyfQojIENyZWF0ZSBzdGFydCBhbmQgZW5kIGRhdGVzCnJlY2Vzc2lvbl9kYXRlcyA8LSByZWNlc3Npb25fZGF0ZXMgJT4lIAogIG11dGF0ZSgKICAgIHN0YXJ0X2RhdGUgPSBzdHJfZXh0cmFjdChwZXJpb2RfcmFuZ2UsICJbQS1aXVthLXpdezIsNH0gWzAtOV17NH0iKSAlPiUgCiAgICAgIHN0cl9yZXBsYWNlKCIgIiwgIiAxLCAiKSAlPiUgCiAgICAgIGx1YnJpZGF0ZTo6bWR5KCksCiAgICBlbmRfZGF0ZSA9IHN0cl9leHRyYWN0KHBlcmlvZF9yYW5nZSwgIltBLVpdW2Etel17Miw0fSBbMC05XXs0fSQiKSAlPiUgCiAgICAgIHN0cl9yZXBsYWNlKCIgIiwgIiAxLCAiKSAlPiUgCiAgICAgIGx1YnJpZGF0ZTo6bWR5KCkKICApICU+JSAKICBzZWxlY3QocGVyaW9kX3JhbmdlLCBzdGFydF9kYXRlLCBlbmRfZGF0ZSwgY2hhcmFjdGVyaXN0aWNzKQpgYGAKCiMgRXhwbG9yZSB0aGUgRGF0YQpgYGB7cn0KbW9ydGdhZ2VfcmF0ZXMgJT4lIAogIG11dGF0ZSh5ZWFyID0gbHVicmlkYXRlOjp5ZWFyKGRhdGUpKSAlPiUgCiAgZ2dwbG90KCkgKwogIGdlb21fbGluZShhZXMoeCA9IGRhdGUsIHkgPSBmaXhlZF9yYXRlXzMwX3lyKSkgKwogIGdlb21fcmVjdChkYXRhID0gZmlsdGVyKHJlY2Vzc2lvbl9kYXRlcywgc3RhcnRfZGF0ZSA+PSAiMTk3MS0wMS0wMSIpLCBhZXMoeG1pbiA9IHN0YXJ0X2RhdGUsIHhtYXggPSBlbmRfZGF0ZSwgeW1pbiA9IDAsIHltYXggPSBJbmYpLCBhbHBoYSA9IDAuMykKYGBgCgpgYGB7cn0Kc3RhdGVfaHBpICU+JSAKICBjb3VudCh5ZWFyLCBzdGF0ZSkgJT4lIAogIGZpbHRlcihuID09IDExKQpgYGAKCmBgYHtyfQpzdGF0ZV9ocGkgJT4lIAogIG11dGF0ZShzdGF0ZV9kaWZmID0gcHJpY2VfaW5kZXggLSB1c19hdmcpICU+JSAKICBncm91cF9ieSh5ZWFyLCBzdGF0ZSkgJT4lIAogIHN1bW1hcmlzZSgKICAgIGF2Z19kaWZmID0gbWVhbihzdGF0ZV9kaWZmLCBuYS5ybSA9IFRSVUUpCiAgKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0geWVhciwgeSA9IGF2Z19kaWZmKSkgKwogIGdlb21fY29sKCkgKwogIGZhY2V0X2dlbyh+c3RhdGUpCmBgYA==